home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 14 / CU Amiga Magazine's Super CD-ROM 14 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-09].iso / CUCD / Programming / AMOS / bestofsd / Pig.AMOS / Pig.amosSourceCode < prev    next >
Encoding:
AMOS Source Code  |  1992-10-20  |  723 b   |  29 lines
  1. ' *****************************************************
  2. ' *                                                   *  
  3. ' *  This AMOS-program was made by Svante Danielsson  *  
  4. ' *                                                   *  
  5. ' *      Mail me at: til96sdn@mds.mdh.se              *  
  6. ' *                                                   *  
  7. ' *****************************************************  
  8.  
  9. Degree 
  10.  
  11. Screen Open 0,320,256,4,Lowres
  12. Curs Off : Flash Off : Cls 0 : Hide 
  13. Get Sprite Palette 
  14.  
  15. SH�JD=90 : L�NGD=430 : YV�RDE=168
  16. Dim Y(L�NGD)
  17.  
  18. For X=0 To L�NGD
  19.    Y(X)=Sin(X)*SH�JD+YV�RDE
  20. Next X
  21.  
  22. Double Buffer 
  23.  
  24. Do 
  25.    For GRIS=0 To L�NGD
  26.       Bob 0,GRIS,Y(GRIS),1
  27.       Wait Vbl 
  28.    Next GRIS
  29. Loop